import Data.Char
import Sintatico
import Lexico
import Types
import Tokens


main :: IO()
main = do
	putStrLn "[> INTERPRETADOR FORTRAN 90i <]"
	putStrLn "Entre com o nome do arquivo que deseja interpretar: "
	input <- getLine
	x <- readFile input
	let y = lexico x 1
	let (f, error) = (sintatico y)

	putStrLn error


